home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 5-Fonts & Software / Demo Software / Canvas 3.0 Demo / Canvas™ 3.0 Demo / Canvas™ 3.0 Demo.rsrc / PREC_103 < prev    next >
Text File  |  1990-06-24  |  406b  |  12 lines
  1. userdict /_cv 30 dict put
  2. _cv begin
  3. /bdf{bind def}bind def
  4. currentscreen/cs exch def/ca exch def/cf exch def
  5. systemdict/setcmykcolor known{/cvcmyk /setcmykcolor load def}{/cvcmyk{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll}repeat setrgbcolor pop}bdf}ifelse
  6. /ss{//cf //ca //cs setscreen}bdf
  7. /stg{ss setgray}bdf
  8. /strgb{ss setrgbcolor}bdf
  9. /stcmyk{ss cvcmyk}bdf
  10. /min1{dup 0 eq{pop 1}if}bdf
  11. end
  12.